home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
fido
/
ROCK14.lha
/
cnxtime.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-24
|
706b
|
35 lines
/*
Rock v1.3 - Fidonet mailer for point systems
Copyright (C) 1995 Jean-Marc Xiume'
This software is distributed under the terms of the
GNU General Public License. Read "license.doc" for more details.
****************** Compute the session connect time ******************
*/
parse arg Shr":"Smin":"SSec" "Ehr":"Emin":"ESec
Dhr = 0
Dmin = 0
Dsec = 0
IF Esec < Ssec THEN DO
Dsec = Esec - Ssec + 60
Dmin = -1
END
ELSE Dsec = Esec - Ssec
IF Emin < Smin THEN DO
Dmin = Dmin + 60 - Smin + Emin
Dhr = -1
END
ELSE Dmin = Dmin + Emin - Smin
IF Ehr < Shr THEN Dhr = Dhr + Ehr - Shr +24
ELSE Dhr = Dhr + Ehr - Shr
LogMsg = Dhr":"Dmin":"Dsec
RETURN LogMsg